eos <- c(13.80484,   8.324144)
his <- c(14.88757,  11.90826)
los <- c(12.72212,  4.740024)

dev.new(width = 7, height = 7)
plot(1:2, eos, main = "Executive Order Usage under Different\nDivided Conditions", 
	xaxt = "n", ylim = c(min(los), max(his)), xlim = c(0.5, 2.5), 
	xlab = "",
	ylab = "Predicted Number of Executive Orders", pch = 16, cex = 2)
abline(h = 12.57999, lwd = 3, lty = 2)
segments(x0 = 1:2, x1 = 1:2, y0 = los, y1 = his, lwd = 2)
axis(1, labels = c("Divided Government\n(Not Veto Proof)",
	"Divided Government\n(Veto Proof)"), at = 1:2, tick = F)
text(1.55, 13, "Unified Government Baseline", cex = 1)